home *** CD-ROM | disk | FTP | other *** search
/ PC World 2000 February / PCWorld_2000-02_cd.bin / Software / Vyzkuste / xsetup / _SETUP.2 / Group3 / XQ Startmenu Items 3.xpl < prev    next >
Text File  |  1999-08-29  |  2KB  |  74 lines
  1. "FILE"="Xteq Systems X-Setup Plugin 5.0"
  2. "TYPE"="6"
  3. "COUNT"="4"
  4. "UIPATH"="Appearance\Start menu\Visible Items"
  5. "NAME"="Visible Items in Start->Settings"
  6. "VERSION"="1.2"
  7. "LANGUAGE"="VBScript"
  8. "TEXT 1"="Show Control Panel and Printers"
  9. "TEXT 2"="Show "Folder options" item"
  10. "TEXT 3"="Show "Taskbar options" item"
  11. "TEXT 4"="Show "ActiveDesktop options" item"
  12. "DESCRIPTION 1"="This plug-in allows you to change which items are displayed in Start -> Settings."
  13. "DESCRIPTION 2"="NOTE #1: Disabling "Control Panel and Printers" will also disable WINDOWS+E to start the Explorer."
  14. "DESCRIPTION 3"="NOTE #2: Disabling "Folder options" will also disable "View" -> "Folder Options" inside the Explorer."
  15. "AUTHOR"="Xteq Systems"
  16. "COPYRIGHT"="Copyright ⌐ Xteq Systems - All Rights Reserved"
  17. "COMMENT 1"="For more information, go to http://www.xteq.com or write to TeXHeX@xteq.com."
  18. "COMMENT 2"="Thanks to Ray Li (rayli@email.com) for spotting the WINDOWS+E effect."
  19.  
  20.  
  21. sP="HKCU\Software\Microsoft\Windows\CurrentVersion\Policies\Explorer\"
  22. sV1="NoSetFolders" 'DW
  23. sV2="NoFolderOptions" 'DW
  24. sV3="NoSetTaskbar" 'DW
  25. sV4="NoSetActiveDesktop" 'DW
  26.  
  27. SUB Plugin_Initialize 
  28.  'i=RegReadValue(sp&sV1)  
  29.  'if IsEmpty(i) or i=0 then SetUIElement 1,true 
  30.  
  31.  Call myReadItem(sV1,1)
  32.  Call myReadItem(sV2,2)
  33.  Call myReadItem(sV3,3)
  34.  Call myReadItem(sV4,4)
  35. END SUB
  36.  
  37. 'Called when the Plugin should validate the Data the user has entered
  38. SUB Plugin_CheckData(ElementIndex)
  39. END SUB
  40.  
  41. 'Called when the Plugin should apply the changes
  42. SUB Plugin_Apply(ElementIndex,ElementSubIndex) 
  43.  Call myWriteItem(sV1,1)
  44.  Call myWriteItem(sV2,2)
  45.  Call myWriteItem(sV3,3)
  46.  Call myWriteItem(sV4,4)
  47.  
  48.  
  49.  Call Logoff
  50. END SUB
  51.  
  52. 'Called when the Plugin is about to be removed from memory
  53. SUB Plugin_Terminate
  54. END SUB
  55.  
  56.  
  57. Sub myReadItem(itmReg,ui)
  58.  i=RegReadValue(sp&itmReg)  
  59.  if IsEmpty(i) or i=0 then 
  60.     Call SetUIElement(ui,true)
  61.  end if
  62. End Sub
  63.  
  64. Sub myWriteItem(itmReg,ui)
  65.  if GetUIElement(ui)=true then
  66.     s=RegReadValue(sp&itmReg)
  67.     if IsEmpty(s)=false then Call RegDeleteValue(sp&itmReg)
  68.  else
  69.     Call RegWriteValue(sp&itmReg,1,2)
  70.  end if
  71. End sub
  72.  
  73.  
  74.